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SQL> cl scr 

SQL> SELECT * FROM Dept; 
DEPTNO DNAME 


LOC 


10 ACCOUNTING 


NEW YORK 


20 RESEARCH 


DALLAS 


30 SALES 


CHICAGO 


40 OPERATIONS 


BOSTON 


SQL> INSERT INTO Dept 

2 VALUES (50, 'SHIPPING 


' , ' CHENNAI ' ) ; 


1 row created. 

SQL> SELECT * FROM Dept; 
DEPTNO DNAME 


LOC 



10 ACCOUNTING 
20 RESEARCH 
30 SALES 
40 OPERATIONS 
50 SHIPPING 

SQL> ROLLBACK; 

Rollback complete. 



NEW YORK 
DALLAS 
CHICAGO 
BOSTON 
CHENN? 





' CHENNAI ' ) ; 



SQL> BEGIN 

2 INSERT INTO D| 

3 VALUES (50, 'SI 

4 END; a 

5 / 

PL/SQL procafc^ silccessfully completed. 



o 



SQL> 



v<? 






* FROM Dept; 



m 


DNAME 


LOC 


10 


ACCOUNTING 


NEW YORK 


20 


RESEARCH 


DALLAS 


30 


SALES 


CHICAGO 


40 


OPERATIONS 


BOSTON 


50 


SHIPPING 


CHENNAI 
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SQL> ROLLBACK; 



Rollback complete. 

SQL> cl scr 
SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := &EnterEmpNo; 

3 V_Ename Emp . Ename%TYPE := 1 SEnterEname' ; 

4 V_Deptno Emp . Deptno%TYPE := &EnterDepto; 

5 V_Job Emp . Job%TYPE := '&EnterJob'; 

6 V_MGR Emp . MGR%TYPE := &EnterMGRNo; 

7 V_HireDate Emp . HireDate%TYPE := ' &EnterHireDate 

8 V_Sal Emp . Sal%TYPE := SEnterSal; 

9 V_Comm Emp . Comm%TYPE := SEnterComm; 

10 BEGIN 

11 INSERT INTO Emp (Empno, Ename, Deptno, Job, 

12 VALUES (V_Empno, V_Ename, V_Deptno, V_Job,^^MG: 
V_Comm) ; 

13 END; 

14 / 

Enter value for ente 
Enter value for ente 
Enter value for ente 
Enter value for ente 
Enter value for ente 
Enter value for ente 
Enter value for ente 
Enter value for ente 



rempno : 7935 
rename: SURESH 
rdepto: 30 
r job: CLERK ^ 
rmgrno : 7 69S_>''tj. 
rhiredat#; %3**|fev-14 
rsal: .25^d++ J 

PL/SQL procedure succe/ completed. 




_reDate, Sal, Comm) 
V_HireDate, V_Sal, 



:COIT W ^ 




SQL> / 

Enter value for anter-^Rpno : 7566 
Enter value foj^. efciterename : SAMPATH 
Enter va 1 nej 4 f ent~ erdept o : 3 0 
Enter value'*i^rjenffer job : CLERK 
Enter value entermgrno: 7698 

Enterw^^e. for enterhiredate : 13 -NOV- 14 
Entei for entersal : 2000 

Ente§ v^mie for entercomm : NULL 
DI 




ROR at line 1 : 

-00001: unique constraint 
RA-06512: at line 11 



( SCOTT. EMP_PRIMARY_KEY) violated 
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SQL> ROLLBACK; 



Rollback complete. 



SQL> cl scr 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 V_Empno Emp . Empno%TYPE NOT NULL := &EnterEmpNo; 

3 V_Ename Emp . Ename%TYPE NOT NULL := UPPER (' SEnterEnefridVe**?^ 

4 V_Deptno Emp . Deptno%TYPE NOT NULL := &EnterDepto; 

5 V_Job Emp . Job%TYPE NOT NULL := UPPER (' &EnterJob4) 

6 V_MGR Emp . MGR%TYPE := &EnterMGRNo; 

7 V_HireDate Emp . HireDate%TYPE NOT NULL := ' &Ent 

8 V_Sal Emp . Sal %TYPE NOT NULL := SEnterSal; 

9 V_Comm Emp . Comm%TYPE := SEnterComm; 

V_MGRName Emp . Ename%TYPE ; 

BEGIN 

IF V_Deptno IN (10, 20, 30, 40) AND 
V_MGR IN (7566, 7698, 7782 



10 
11 
12 

13 

14 V 
' SALESMAN' ) 

15 INSERT 

16 VALUES (V 
V_Comm) ; 

17 SELECT Ename, 
V_Deptno, V_Job, 



1 ANA 



D ru-ti+ + ■ 

, 7l8sLr7*3‘ 




7902) 



MANAGER ' 



AND 

' CLERK' 



Job IN ( 'PRESIDENT 
THEN ' + +. 

INTO Emp (Empno, Enart%J"H|eptno, Job, MGR, HireDate, Sal , 
Empno, V_Ename, V^a^tm, V_Job, V_MGR , V_HireDate, V_ 



18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 



FROM Emp 
WHERE Empno = V 
IF V_MGR IS N' 
SELECT Ename 
FROM Emp a 
WHERE Empncm= 

ELSE 

SELECMnfne %NTO 



Ename, 

Deptno. 

V_MGR, V vfofi^ate, V_Sal, 



Comm) 

Sal, 



HireDate, Sal, 
V Comm 



Comm INTO V Ename 




Empno; 
NU SLf THEN 
m V MGRName 



MGR; 




V_MGRName 

Emp+t^ 

^THEae MGR IS NULL; 

DBmS^OUTPUT . PUT_LINE ( ' T he Details of New Employee Record Inserted 

ajpfeaSH-iFollows ...'); 

3 g f ft )BMS_OUTPUT . PUT_LINE ( 

° DBMS_OUTPUT . PUT_LINE ( 

DBMS_OUTPUT . PUT_LINE ( 

DBMS_OUTPUT . PUT_LINE ( 



'The 

'The 

'The 

'The 



Employee Number : ' | |V_Empno) ; 

Employee Name : ' | | INITCAP (V_Ename) ) 

Department Number : ' | |V_Deptno) ; 

Designation : ' | | INITCAP (V_Job) ) ; 
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Manager Number 
be Managed" ' ) II 



34 DBMS_OUTPUT . PUT_LINE ( ' The 
' | | NVL (TO_CHAR (V_MGR) , ' "Cannot 
' | | VJMGRName ) ; 

35 DBMS_OUTPUT . PUT_LINE ( ' The Joining Date 
' I I TO_CHAR (V_HireDate , 'FMDD, Month Year')); 

36 DBMS_OUTPUT . PUT_LINE ( ' The Basic Salary 
' , TO_CHAR ( V_Sal , ' 99, 999.99 

37 DBMS_OUTPUT . PUT_LINE ( 

' | | NVL (TO_CHAR (V_Comm) , 'No 

38 ELSE 

3 9 DBMS_OUTPUT . PUT_LINE ( 

Master Data . . . ' ) ; 

4 0 DBMS_OUTPUT . PUT_LINE ( 

4 1 DBMS_OUTPUT . PUT_LINE ( 

Cancelled. . . ' ) ; ^ 

42 DBMS_OUTPUT . PUT_LINE ( ' Thank You for Using the 

43 RETURN; 

44 

45* 



and his Name is 



| | CONCAT ( 

) ) ) ; 

The Commission Earned : 

Commission . . . Sorry ! ' ) ) ; 

The Given Information Conflict 

Please CROSS CHECK for Proper\pat 
Your INSERT Transaction h#s be 

V 




SQL> 

Enter 

Enter 

Enter 

Enter 

Enter 

Enter 

Enter 

Enter 



END IF; 
END; 

/ 

value 

value 

value 

value 

value 

value 

value 

value 



enterempno 
enterename 
enterdepto 
enter job : 



7935 
SURESH 
30 
CLERK 




es ■ 



) ; 



entermgrno: 7 6 9 8b. 



enterhiredate : i?*UoVl4 
entersal : 2 0t^ 
entercomm; 



The 

The 

The 

The 

The 

The 

The 

The 

The 



Details 
Employee 
Employee 
Department Nu 
Designation 
Manager Number 
Joining Dat^? \ 






Inserted are as Follows. 



7$3 + 5 



V 







_ 13, 

Basic salary : INR 
Commiss$t|n larned 

PL/SQtj_ psjrjfeedure successfully completed. 



698 , and his Name is : BLAKE 
November Twenty Fourteen 
2 , 000.00 

No Commission ... Sorry ! 



SQL> / 
E|t l ^r t +w«lue 

S ter value 
ter 
ter 
ftnter 
Enter 
Enter 



value 

value 

value 

value 

value 



for enterempno: 7936 

for enterename: RAVI 

for enterdepto: 30 

for enter job: SRCLERK 

for entermgrno: 7698 

for enterhiredate: 13-NOV-14 

for entersal: 2500 
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Enter value for entercomm: NULL 

The Given Information Conflicts with the Master Data... 
Please CROSS CHECK for Proper Data.. 

Your INSERT Transaction has been Car 
Thank You for Using the Services... 



3* WHERE Deptno = 60 
SQL> / 
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Rollback complete. 



PL/SQL procedure successfully comple 



Rollback complete. 



Rollback complete. 



SQL> ROLLBACK; 



SQL> cl scr 



SQL> ROLLBACK; 



SQL> ROLLBACK; 



SQL> cl scr 





4 0 OPERATIONS^ BOSTON 



V 
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0 rows updated. 
SQL> ROLLBACK; 



Rollback complete. 



SQL> BEGIN 

2 UPDATE Dept 

3 SET Loc = 'DELHI ' 

4 WHERE Deptno = 40; 

5 END; 

6 / 



PL/SQL procedure successfully 

SQL> BEGIN 

2 UPDATE Dept 

3 SET Loc = 'DELHI ' 

4 WHERE Deptno = 60; 

5 END; 

6 / 

PL/SQL procedure successfully 




SQL> ROLLBACK; 
Rollback complete. 
SQL> cl scr 

SQL> UPDATE Emp 

2 SET Sal = Sal 

3 WHERE Deptn^ = 

6 rows update 





t 1000 
= 3#f 






SQL> rollback; 
Rollb^ik^iwfiplete . 



S^KlffiGIN 

if fjtJPDATE Emp 

3^ SET Sal = Sal + 1000 
4 \ WHERE Deptno = 30; 

5 END; 

6 / 



O' 



0 * 



& 






9 
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PL/SQL procedure successfully completed. 



SQL> ROLLBACK; 



Rollback complete. 



SQL> cl scr 



SQL> ED 
Wrote file 



af iedt . buf 



THEN 



1 DECLARE 

2 V_Emp Record Emp%ROWTYPE ; 

3 V_Empno Emp . Empno%TYPE NOT NULL : = SEnterEmpno; ♦ 

4 V_Sal Emp . Sal%TYPE NOT NULL := SEnterNewSal ; 

5 V_Comm Emp . Comm%TYPE NOT NULL := SEnterNewCo 

6 V_MGRName Emp . Ename%TYPE ; 

7 BEGIN 

8 SELECT * INTO V_EmpRecord 

9 FROM Emp 

10 WHERE Empno = V_Empno; 

11 IF V_EmpRe cord. Job IN (' PRESIDENT 

12 DBMS_OUTPUT . PUT_LINE ( ' The Origi 
Requested for Update are ' | |V_Empno) 

13 DBMS_OUTPUT . PUT_LINE ( ' The arffeee Name : 

' | | INITCAP (V_EmpRecord . Ename) ) 

14 DBMS_OUTPUT . PUT_LINE ( ' Tltp l^trf'nal Basic Salary : ' | | CONCAT ( ' INR 

' , TO CHAR (V EmpRecord . Sal 1 ' 9^ ^901)9' ) ) ) ; 

15 DBMS_OUTPUT . PUT_LINE^the^:iginal Commission Earned : 

' | | NVL (T0_CHAR ( V_EmpReco^£. C^nnm) , ' No Commission . . . Sorry ! ' ) ) ; 

16 DBMS_OUTPUT.PUT ' | | INITCAP (V_EmpRecord . Ename ) | | ' Cannot 

Updated as he is ndt El Cqjfl ble for Commission ...'); 

17 DBMS_OUTPUT.PI?TPL%E ( 'The Updation 




MANAGER' 
of Employee 



CLERK' ) 
Number 



be 



Thank You . . 

18 ELSE 

1 9 DBMS_ 
Requested f$fcf 

20 DBMS OUT 



for 



Data Updation 



of Data Was Not 
Services ...'); 



Sucessful . 



| | CONCAT ( ' INR 



using^fr 

-A 

■r-!%JT_LINE ( ' The Original Details of Employee Number 
1 iaffe are ' | |V_Empno) ; 

1 . PUT_LINE ( ' The Employee Name : 

| | INCT(®^tY_EmpRecord • Ename ) ) ; 

21 D^£ySWTPUT . PUT_LINE ( ' The Original Basic Salary 
' , T01 CHaK( V_EmpRecord . Sal , ' 99, 999 . 99' ) ) ) ; 

|®J^%eMS_OUTPUT.PUT_LINE ( 'The Original Commission Earned : 

,1* | fNyt (TO_CHAR (V_EmpRecord . Comm) , ' No Commission . . . Sorry ! ' ) ) ; 
Jn23^DBMS_0UTPUT.PUT_LINE ( 'The Updation of Data is Under Process, 
■jprease Wait ...'); 

9 24 UPDATE Emp 

25 SET Sal = V_Sal, 

2 6 Comm = V Comm 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



Data 



27 WHERE Empno = V_Empno; 

28 DBMS_OUTPUT . PUT_LINE ( ' The Updation of 
You... for using the Data Updation Services 

29 SELECT * INTO V_EmpRecord 

30 FROM Emp 

31 WHERE Empno = V_Empno; 

32 IF V_EmpRecord . MGR IS NOT NULL THEN 

33 SELECT Ename INTO VJMGRName 
3 4 FROM Emp 

35 WHERE Empno = V_EmpRe cord . MGR; 

36 ELSE 

37 SELECT Ename INTO VJMGRName 

3 8 FROM Emp 

39 WHERE MGR IS NULL; 

40 END IF; 

41 DBMS_OUTPUT . PUT_LINE ( ' The Details of Updated 

Follows ...'); #1^1 

42 DBMS_OUTPUT . PUT_LINE ( ' The Employee Number ' 1*1 V 

43 DBMS_OUTPUT . PUT_LINE ( ' The Employee Namt| 

' | | INITCAP (V_EmpRecord. Ename) ) ; %. + ++ W 

4 4 DBMS_OUTPUT . PUT_LINE ( ' The Departmen1^fcH|b^r 
' I I V_EmpRecord . Deptno ) ; 



Was Sucessful, 



Thank 




Record are 



_EmpRecord . Empno) 



jnar.1 



orTT 



45 DBMS_OUTPUT . PUT_LINE ( ' The Desigf 

' | | INITCAP (V_EmpRecord. Job) ) ; >• 

46 DBMS_OUTPUT . PUT_LINE ( ' The M^S^er Number : 

' | | NVL (TO_CHAR ( V_EmpRecord . MGR)_ f j'%a Aot be Managed" ' ) | | 
is : '| | V_MGRN ame ) ; 

47 DBMS OUTPUT .PUT LINE1 ' T^e tfJodffiincr Date : 

' | |TO_CHAR(V_EmpRecord.Hirl^a%^ / +J 'FMDD, Month Year')); 

48 DBMS_OUTPUT.PUT_LINBV™^ Basic Salary Updated is : 
' , TO_CHAR(V_EmpRecord.f^J^%$, 999.99'))); 

49 DBMS_OUTPUT . P^lLINE P The Commission Updated is : 

' I I V_EmpRecord . Com 

50 END IF; . 

5 1 * END ; ... \ 

SQ L> / 

Enter value fo r fenferempno : 7654 
Enter va 



and his Name 



| | CONCAT ( ' INR 




e f OT ‘ ' enternewsal: 4500 
for enternewcomm : 650 



mp^Byee 
inal 
iginal 
pdation 
Updation 



Details of Employee Number Requested for Update are 7654 
Name : Martin 

Basic Salary : INR 1,250, 

Commission Earned : 1400 
of Data is Under Process. . , 

of Data Was Sucessful. . . Thank You. . .for using the Data 
Jpdation Services... 

The Details of Updated Employee Record are as Follows... 

The Employee Number : 7654 



00 



Please Wait , 
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The Employee Name : Martin 

The Department Number : 30 
The Designation : Salesman 

The Manager Number : 7698 , and his Name is : BLAKE 

The Joining Date : 28, September Nineteen Eighty-One 
The Basic Salary Updated is : INR 4,500.00 
The Commission Updated is : 650 

PL/SQL procedure successfully completed. 



SQL> / 

Enter value for enterempno: 7566 
Enter value for enternewsal: 3500 
Enter value for enternewcomm: 500 
The Original Details of Employee Number 
The Employee Name : Jones 

The Original Basic Salary : INR 2,975.00 
The Original Commission Earned : No Commission 
Mr . Jones Cannot be Updated as he is not El€a 
The Updation of Data 
Updation Services. . . 









Requested d:o 



v V 

Update are 7566 



— 



Was Not Sucessful... 



^jpr%ry ! 

Commission . . . 

.for using the Data 



fbiW for 



ou . 



PL/SQL procedure successfully compl e 



SQL> ROLLBACK; 



Rollback complete. 



SQL> cl scr 



SQL> 

2 



o 



1 row deleted. 



SQL> DELET 
2 WHERE 



0 rows cfyfeted 
SQL>Icl Jcr 
JlQ ^l kOLLBACK; 




DELETE FROM De 
WHERE Deptno 



lback complete. 
SQL> cl scr 
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SQL> BEGIN 

2 DELETE FROM Dept 

3 WHERE Deptno = 40; 

4 END; 

5 / 

PL/SQL procedure successfully completed. 

SQL> BEGIN 

2 DELETE FROM Dept 

3 WHERE Deptno = 60; 

4 END; 

5 / 

PL/SQL procedure successfully completed. 
SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 



DECLARE 4 J 1 t ) . ^ 

V_EmpRecord Emp%ROWTYPEt r 




V_Empno Emp . Empno%TYEE . NULL := &EnterEmpno; 
V_MGRName Emp . Ename%T^E^ +J 



cM:d 



BEGIN 

SELECT * INTO 
FROM Emp 
WHERE Empno = 

IF V_EmpRecord . m# IS NOT NULL THEN 
SELECT En^m#:. INTO V_MGRN ame 
FROM MpJ & 

WHERE = W_EmpRecord.MGR; 




ELS 




Ename INTO V MGRName 



10 
11 
12 

13 

14 CE 

15 ^S^Wrtip 

16 HHOT; MGR IS NULL; 

/h BMS_OUTPUT . PUT_LINE ( ' The Details of Employee Number Being Deleted 
Jgre ' | | V_Empno ) ; 

i T9 DBMS_OUTPUT . PUT_LINE ( ' The Employee Name : 

*' | ! INITCAP (V_EmpRecord. Ename) ) ; 

20 DBMS_OUTPUT . PUT_LINE ( ' The Department Number : 

' I I V_EmpRecord . Deptno ) ; 
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21 DBMS_OUTPUT . PUT_LINE ( ' The Designation : 

' | ! INITCAP ( V_EmpRecord . Job) ) ; 

22 DBMS_OUTPUT . PUT_LINE ( ' The Manager Number : 

' | | NVL (TO_CHAR (V_EmpRecord . MGR) , '"Cannot be Managed" 
is : ' | | V_MGRName) ; 

23 DBMS_OUTPUT . PUT_LINE ( ' The Joining Date : 

' | | TO_CHAR (V_EmpRecord . HireDate, ' FMDD , Month Year')) ; 

24 DBMS_OUTPUT . PUT_LINE ( ' The Basic Salary : ' | | CONCAT ( 

' , TO_CHAR ( V_EmpRecord . Sal , ' 99, 999. 99' ) ) ) ; 

25 DBMS_OUTPUT . PUT_LINE ( ' The Commission Earned : 

' | | NVL (TO_CHAR (V_EmpRecord . Comm) , 'No Commission . . .Sorry ! ' 

26 DBMS_OUTPUT . PUT_LINE ( ' The Deletion Under Process. 

Wait . . . ' ) ; 

DELETE FROM EMP 
WHERE Empno = V_Empno; 

DBMS_OUTPUT . PUT_LINE ( ' The Deletion of Data Wi Pfesful, 

. for using the Delete Services ...'); 

END; 



Name 



/ 



27 

28 
29 

You . 

30* 

SQL> 

Enter value for enterempno: 7654 
The Details of Employee Number Being Del 
The Employee Name : Martin 

The Department Number : 30 
The Designation : Salesman 
The Manager Number : 7 698, and WStoame 

The Joining Date : 28, September Mnekeen 
The Basic Salary : INR 1 , 2$p 
The Commission Earned : 1 4 0 Qi , + + pr 
The Deletion Under Processx . T^rfease Wait.. 
The Deletion of Data Was^Cuc^sful . . . Thank 
Services . . . 




Thank 



is 




BLAKE 
Eighty-One 



You... for using the Delete 



<5 



PL/SQL procedure s 

SQL> ROLLBACK; . \ 

Rollback com ^et pe . 4 

SQL> cl see 

SQL>IUPMTE Emp 

Sal = Sal + 1000 
^ fHERE Deptno = 30; 



ully completed. 



rows updated. 
SQL> SPOOL OFF 
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